home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MegaSort Stack.cpt / MegaSort Stack / card_8907.txt < prev    next >
Text File  |  1990-12-13  |  2KB  |  73 lines
  1. -- card: 8907 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 12840
  5. -- name: explain11
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 2001
  11. -- rect: left=27 top=40 right=279 bottom=482
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: text field
  20.  
  21.  
  22. -- part 4 (button)
  23. -- low flags: 00
  24. -- high flags: A000
  25. -- rect: left=196 top=289 right=334 bottom=248
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 9301 / 9301
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Go back
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   visual effect scroll right
  37.   if the short name of this card is "explain1" then
  38.     go to card 1
  39.   else
  40.     go to previous card
  41.   end if
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 5 (button)
  47. -- low flags: 00
  48. -- high flags: A000
  49. -- rect: left=271 top=288 right=335 bottom=326
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 27009 / 27009
  52. -- text alignment: 1
  53. -- font id: 0
  54. -- text size: 12
  55. -- style flags: 0
  56. -- line height: 16
  57. -- part name: Continue
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   visual effect scroll left
  61.   go to next card
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part contents for card part 1
  67. ----- text -----
  68. Putting it all together, let's say you want to sort by characters 3 to 7 of item 2 of each line, you want the comparison to be done by numeric values, and you want the lines to be in descending order.  The command for this would be:
  69.  
  70. Put MegaSort(unsorted,",",return,"f=2,t=n,d=d,c=char 3 to 7") into sorted
  71.  
  72.  
  73. Also included in this stack is an XFCN called AnswerALot and an XFCN called PutPathName.  AnswerALot emulates the Answer command in HyperCard, except that it allows up to 15 choices.  Look at the script for the last example to see how it works.